(map-y-or-n-p): Call x-popup-dialog the new way.

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index a4ee70bcee5009df46892b44f14090f2e86a5f1f..f4e22ecbb244ed17f08cfa469ea47bc4ad063631 100644 (file)
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -137,8 +137,7 @@ Returns the number of actions taken."
                  ;; Prompt the user about this object.
                  (if mouse-event
                      (setq def (or (x-popup-dialog mouse-event
-                                                   (list "gratuitous"
-                                                         (cons prompt map)))
+                                                   (cons prompt map))
                                    'quit))
                    ;; Prompt in the echo area.
                    (let ((cursor-in-echo-area (not no-cursor-in-echo-area)))